close all;clc;clear all

Protocol = 1;
figure('position',[100 100 300 300]);
NN=[3 3 5 5 5];

for isub = 1
    isub
%     subplot(1,3,isub)
    % tt=csvread(['Human_results\Subject' num2str(isub) '_P' num2str(Protocol) '_day1.xlsx'],0,0);
    tt=readtable(['Human_results\Subject' num2str(isub) '_P' num2str(Protocol) '_day1.xlsx'])


    for i=1:NN(Protocol)
        for j=1:25
            out_table(j,i)=tt{j,i};
        end
    end
if Protocol < 3
    plot(out_table(:,2)+randn(25,1),out_table(:,3)+randn(25,1),'o');hold on;
else
    plot(out_table(:,2)+randn(25,1),out_table(:,4)+randn(25,1),'o');hold on;
    plot(out_table(:,3)+randn(25,1),out_table(:,5)+randn(25,1),'o');hold on;
end
    plot([-100 100],[-100 100])

    xlabel('True locations (degree)');
    ylabel('Detected locations (degree)');
    title(['Subject ' num2str(isub)]);
    axis square
end
exportgraphics(gcf, ['Figure_human.png'], 'Resolution', 300,'ContentType', 'vector')
